home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 72 / 64er_Magazin_Sonderheft_72_19xx_Markt__Technik_de_Side_A.d64 / change addr (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.1 KB  |  37 lines
  1. 0 g$="hard":a1=49152:a2=1024:rem betriebsdaten
  2. 1 print"[147][142]startadresse eines files aendern
  3. 2 [153]"programmiert von n.heusler, 23.8.88
  4. 3 print"(c) 64'er, markt & technik
  5. 4 [143] * benutzung auf eigene gefahr *
  6. 5 [159]1,8,15,"u9
  7. 6 print#1,"m-r"chr$(183)chr$(229)chr$(17)
  8. 7 fori=1to17:get#1,a$:n$=n$+a$:next
  9. 8 ifn$<>"[195]bm dos v2.6 154[177]"thenprint"programm laeuft nur auf vc1541!":goto105
  10. 10 open2,8,2,g$+",p,r
  11. 11 [141]100:[152]1,"m-r"[199](168)[199](0)[199](1):[161]#1,a$:a[178][198](a$[170][199](0))
  12. 12 [152]1,"m-r"[199](6[170]2[172]a)[199](0)[199](2)
  13. 13 [161]#1,a$:t[178][198](a$[170][199](0))
  14. 14 [161]#1,a$:s[178][198](a$[170][199](0))
  15. 15 [160]2
  16. 16 [159]2,8,2,"#
  17. 17 print#1,"u1:2 0"t;s:gosub100
  18. 18 get#2,a$,a$
  19. 19 get#2,a$:l=asc(a$+chr$(0))
  20. 20 get#2,a$:h=asc(a$+chr$(0))
  21. 21 a=l+256*h:print"alte startadresse: "a
  22. 22 ifa=a2thenprint"bitte nur einmal aendern !":goto105
  23. 23 ifa<>a1thenprint"fehlerhaftes mse-listing !":goto105
  24. 24 print"adresse ok. wird geaendert.
  25. 25 ah[178][181](a2[173]256):al[178]a2[171]ah[172]256
  26. 26 [152]1,"u1:2 0"t;s:[141]100
  27. 27 [152]1,"b-p 2 2
  28. 28 print#2,chr$(al)chr$(ah);
  29. 29 print#1,"u2:2 0"t;s:gosub100:print"alles ok. fertig.":goto106
  30. 100 f4=f4+1:input#1,f1,f1$,f2,f3
  31. 101 iff1=.thenreturn
  32. 102 print"diskettenfehler nr."f1
  33. 103 print"text: "f1$
  34. 104 print"track:"f2" sektor:"f3" pass:"f4
  35. 105 print"programm abgebrochen...
  36. 106 [160]2:[160]1
  37.